home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 128
/
Tiger_Disk_128_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_107
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
506b
|
11 lines
1 s=54272:pokes+24,15:pokes+5,9:pokes+6,240:pokes+4,17
5 poke53280,.:poke53281,.:printchr$(147):poke53265,80:fora=2to18:pokes,168
6 print" [197][206][196][197] ":poke53284,c:pokes+4,16
8 print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";:poke53282,14*rnd(1)+14:nexta
25 forc=4to17:pokes+4,c:poke646,c:pokes+4,29
29 print" [197][206][196][197] [145]":poke53284,c:pokes+4,16
33 poke53282,peek(53283):poke53283,peek(c):nextc:pokes+4,17:pokes+4,29
34 ford=1to12:pokes+1,d:next:pokes+4,16
35 poke56325,1:print"lukian":poke56325,55:fort=1to300:next
36 pokes+4,129:ford=1to15:pokes+4,128:next :sys2048